C:\to_server\website\mrdcl-learning.com\mrdcl_files\DAT-09\punch.stp
start data,
serial number in columns 1-3,
card characters binary 200,
order 1234567890xv,
read $1-100,
d$101-103=$1-3,
d$104-105=$5-6,
ds $gender=$25/1,2,
di $igender=$gender,
d$106-106=$igender,
if $gender/1,m$107/b.1,
if $gender/2,m$107/b.2,
punch $101-107,
finish data,
